/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / apel / install.elc.z / install.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 36 3a 30 35 20 31 | 39 39 38 0a 3b 3b 3b 20 |:46:05 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 61 70 65 6c |s-20.3/l|isp/apel|
|000000a0| 2f 69 6e 73 74 61 6c 6c | 2e 65 6c 0a 3b 3b 3b 20 |/install|.el.;;; |
|000000b0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 32 30 |emacs ve|rsion 20|
|000000c0| 2e 34 20 22 45 6d 65 72 | 61 6c 64 22 20 58 45 6d |.4 "Emer|ald" XEm|
|000000d0| 61 63 73 20 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |acs  Luc|id..;;; |
|000000e0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000f0| 20 32 2e 32 35 20 58 45 | 6d 61 63 73 3b 20 32 32 | 2.25 XE|macs; 22|
|00000100| 2d 4d 61 72 2d 39 36 2e | 0a 3b 3b 3b 20 6f 70 74 |-Mar-96.|.;;; opt|
|00000110| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000120| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000130| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000140| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000150| 6e 20 45 6d 61 63 73 20 | 31 39 2e 0a 0a 28 69 66 |n Emacs |19...(if|
|00000160| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000180| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000190| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|000001a0| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|000001b0| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|000001c0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001d0| 69 6f 6e 20 22 32 30 22 | 29 29 29 0a 20 20 20 20 |ion "20"|))).    |
|000001e0| 28 65 72 72 6f 72 20 22 | 60 69 6e 73 74 61 6c 6c |(error "|`install|
|000001f0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|00000200| 64 20 66 6f 72 20 45 6d | 61 63 73 20 32 30 22 29 |d for Em|acs 20")|
|00000210| 29 0a 0a 28 6f 72 20 28 | 62 6f 75 6e 64 70 20 27 |)..(or (|boundp '|
|00000220| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000230| 74 29 20 28 73 65 74 71 | 20 63 75 72 72 65 6e 74 |t) (setq| current|
|00000240| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 6e 69 6c 29 29 |-load-li|st nil))|
|00000250| 0a 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |...(byte|-code ".|
|00000260| c1 21 88 c0 c2 21 87 22 | 20 5b 72 65 71 75 69 72 |.!...!."| [requir|
|00000270| 65 20 65 6d 75 20 70 61 | 74 68 2d 75 74 69 6c 5d |e emu pa|th-util]|
|00000280| 20 32 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 | 2).(def|alias 'c|
|00000290| 6f 6d 70 69 6c 65 2d 65 | 6c 69 73 70 2d 6d 6f 64 |ompile-e|lisp-mod|
|000002a0| 75 6c 65 20 23 5b 28 6d | 6f 64 75 6c 65 20 26 6f |ule #[(m|odule &o|
|000002b0| 70 74 69 6f 6e 61 6c 20 | 70 61 74 68 20 65 76 65 |ptional |path eve|
|000002c0| 72 79 2d 74 69 6d 65 29 | 20 22 c0 c1 5c 6e 21 0b |ry-time)| "..\n!.|
|000002d0| 5c 22 89 12 c4 50 5c 6e | c5 50 1e 06 1e 07 0e 08 |\"...P\n|.P......|
|000002e0| ac 88 c9 0e 07 0e 06 5c | 22 ad 84 ca 0e 07 21 2a |.......\|".....!*|
|000002f0| 87 22 20 5b 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |." [expa|nd-file-|
|00000300| 6e 61 6d 65 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |name sym|bol-name|
|00000310| 20 6d 6f 64 75 6c 65 20 | 70 61 74 68 20 22 2e 65 | module |path ".e|
|00000320| 6c 22 20 22 2e 65 6c 63 | 22 20 65 6c 63 2d 66 69 |l" ".elc|" elc-fi|
|00000330| 6c 65 20 65 6c 2d 66 69 | 6c 65 20 65 76 65 72 79 |le el-fi|le every|
|00000340| 2d 74 69 6d 65 20 66 69 | 6c 65 2d 6e 65 77 65 72 |-time fi|le-newer|
|00000350| 2d 74 68 61 6e 2d 66 69 | 6c 65 2d 70 20 62 79 74 |-than-fi|le-p byt|
|00000360| 65 2d 63 6f 6d 70 69 6c | 65 2d 66 69 6c 65 5d 20 |e-compil|e-file] |
|00000370| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |4]).(def|alias 'c|
|00000380| 6f 6d 70 69 6c 65 2d 65 | 6c 69 73 70 2d 6d 6f 64 |ompile-e|lisp-mod|
|00000390| 75 6c 65 73 20 23 5b 28 | 6d 6f 64 75 6c 65 73 20 |ules #[(|modules |
|000003a0| 26 6f 70 74 69 6f 6e 61 | 6c 20 70 61 74 68 20 65 |&optiona|l path e|
|000003b0| 76 65 72 79 2d 74 69 6d | 65 29 20 22 c0 c1 5c 6e |very-tim|e) "..\n|
|000003c0| 5c 22 87 22 20 5b 6d 61 | 70 63 61 72 20 23 5b 28 |\"." [ma|pcar #[(|
|000003d0| 6d 6f 64 75 6c 65 29 20 | 22 c0 09 5c 6e 0b 23 87 |module) |"..\n.#.|
|000003e0| 22 20 5b 63 6f 6d 70 69 | 6c 65 2d 65 6c 69 73 70 |" [compi|le-elisp|
|000003f0| 2d 6d 6f 64 75 6c 65 20 | 6d 6f 64 75 6c 65 20 70 |-module |module p|
|00000400| 61 74 68 20 65 76 65 72 | 79 2d 74 69 6d 65 5d 20 |ath ever|y-time] |
|00000410| 34 5d 20 6d 6f 64 75 6c | 65 73 5d 20 33 5d 29 0a |4] modul|es] 3]).|
|00000420| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 ac |(byte-co|de "..!.|
|00000430| 86 c2 c3 5c 5c c4 5c 5c | 11 c1 0d 42 15 c0 87 22 |...\\.\\|...B..."|
|00000440| 20 5b 62 6f 75 6e 64 70 | 20 69 6e 73 74 61 6c 6c | [boundp| install|
|00000450| 2d 6f 76 65 72 77 72 69 | 74 74 65 6e 2d 66 69 6c |-overwri|tten-fil|
|00000460| 65 2d 6d 6f 64 65 73 20 | 33 38 34 20 33 32 20 34 |e-modes |384 32 4|
|00000470| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000480| 73 74 5d 20 32 29 0a 28 | 64 65 66 61 6c 69 61 73 |st] 2).(|defalias|
|00000490| 20 27 69 6e 73 74 61 6c | 6c 2d 66 69 6c 65 20 23 | 'instal|l-file #|
|000004a0| 5b 28 66 69 6c 65 20 73 | 72 63 20 64 65 73 74 20 |[(file s|rc dest |
|000004b0| 26 6f 70 74 69 6f 6e 61 | 6c 20 6d 6f 76 65 20 6f |&optiona|l move o|
|000004c0| 76 65 72 77 72 69 74 65 | 29 20 22 c0 09 5c 6e 5c |verwrite|) "..\n\|
|000004d0| 22 1b c4 0b 21 ad ad c0 | 09 0d 5c 22 1e 06 c4 0e |"...!...|..\"....|
|000004e0| 06 21 ab 89 0e 07 ab 85 | c8 0e 06 21 88 c9 0b 0e |.!......|...!....|
|000004f0| 06 ca 89 24 88 0e 0b ab | 84 cc cd 8d 88 ce cf d0 |...$....|........|
|00000500| 09 0d 23 21 29 29 87 22 | 20 5b 65 78 70 61 6e 64 |..#!))."| [expand|
|00000510| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 69 6c 65 20 |-file-na|me file |
|00000520| 73 72 63 20 73 72 63 2d | 66 69 6c 65 20 66 69 6c |src src-|file fil|
|00000530| 65 2d 65 78 69 73 74 73 | 2d 70 20 64 65 73 74 20 |e-exists|-p dest |
|00000540| 66 75 6c 6c 2d 70 61 74 | 68 20 6f 76 65 72 77 72 |full-pat|h overwr|
|00000550| 69 74 65 20 64 65 6c 65 | 74 65 2d 66 69 6c 65 20 |ite dele|te-file |
|00000560| 63 6f 70 79 2d 66 69 6c | 65 20 74 20 6d 6f 76 65 |copy-fil|e t move|
|00000570| 20 74 61 67 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | tag (by|te-code |
|00000580| 22 c0 09 21 ab 8c c2 09 | 21 ab 87 c3 c4 c5 8f 88 |"..!....|!.......|
|00000590| aa 6f c0 87 22 20 5b 66 | 69 6c 65 2d 65 78 69 73 |.o.." [f|ile-exis|
|000005a0| 74 73 2d 70 20 73 72 63 | 2d 66 69 6c 65 20 66 69 |ts-p src|-file fi|
|000005b0| 6c 65 2d 77 72 69 74 61 | 62 6c 65 2d 70 20 65 72 |le-writa|ble-p er|
|000005c0| 72 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 09 |r (byte-|code "..|
|000005d0| 21 88 c2 c3 c4 5c 22 87 | 22 20 5b 64 65 6c 65 74 |!....\".|" [delet|
|000005e0| 65 2d 66 69 6c 65 20 73 | 72 63 2d 66 69 6c 65 20 |e-file s|rc-file |
|000005f0| 74 68 72 6f 77 20 74 61 | 67 20 6e 69 6c 5d 20 33 |throw ta|g nil] 3|
|00000600| 29 20 28 28 65 72 72 6f | 72 20 28 62 79 74 65 2d |) ((erro|r (byte-|
|00000610| 63 6f 64 65 20 22 c0 c1 | c2 0b 41 40 5c 22 21 87 |code "..|..A@\"!.|
|00000620| 22 20 5b 70 72 69 6e 63 | 20 66 6f 72 6d 61 74 20 |" [princ| format |
|00000630| 22 25 73 5c 6e 22 20 65 | 72 72 5d 20 34 29 29 29 |"%s\n" e|rr] 4)))|
|00000640| 5d 20 33 29 20 70 72 69 | 6e 63 20 66 6f 72 6d 61 |] 3) pri|nc forma|
|00000650| 74 20 22 25 73 20 2d 3e | 20 25 73 5c 6e 22 5d 20 |t "%s ->| %s\n"] |
|00000660| 35 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 69 |5]).(def|alias 'i|
|00000670| 6e 73 74 61 6c 6c 2d 66 | 69 6c 65 73 20 23 5b 28 |nstall-f|iles #[(|
|00000680| 66 69 6c 65 73 20 73 72 | 63 20 64 65 73 74 20 26 |files sr|c dest &|
|00000690| 6f 70 74 69 6f 6e 61 6c | 20 6d 6f 76 65 20 6f 76 |optional| move ov|
|000006a0| 65 72 77 72 69 74 65 29 | 20 22 c0 09 21 ac 85 c2 |erwrite)| "..!...|
|000006b0| 09 c3 5c 22 88 c4 c5 0e | 06 5c 22 87 22 20 5b 66 |..\"....|.\"." [f|
|000006c0| 69 6c 65 2d 65 78 69 73 | 74 73 2d 70 20 64 65 73 |ile-exis|ts-p des|
|000006d0| 74 20 6d 61 6b 65 2d 64 | 69 72 65 63 74 6f 72 79 |t make-d|irectory|
|000006e0| 20 74 20 6d 61 70 63 61 | 72 20 23 5b 28 66 69 6c | t mapca|r #[(fil|
|000006f0| 65 29 20 22 c0 09 5c 6e | 0b 0c 0d 25 87 22 20 5b |e) "..\n|...%." [|
|00000700| 69 6e 73 74 61 6c 6c 2d | 66 69 6c 65 20 66 69 6c |install-|file fil|
|00000710| 65 20 73 72 63 20 64 65 | 73 74 20 6d 6f 76 65 20 |e src de|st move |
|00000720| 6f 76 65 72 77 72 69 74 | 65 5d 20 36 5d 20 66 69 |overwrit|e] 6] fi|
|00000730| 6c 65 73 5d 20 33 5d 29 | 0a 28 64 65 66 61 6c 69 |les] 3])|.(defali|
|00000740| 61 73 20 27 69 6e 73 74 | 61 6c 6c 2d 65 6c 69 73 |as 'inst|all-elis|
|00000750| 70 2d 6d 6f 64 75 6c 65 | 20 23 5b 28 6d 6f 64 75 |p-module| #[(modu|
|00000760| 6c 65 20 73 72 63 20 64 | 65 73 74 29 20 22 c0 89 |le src d|est) "..|
|00000770| 19 1a c3 0c 21 89 1d c6 | 50 12 0d c7 50 11 29 c8 |....!...|P...P.).|
|00000780| 5c 6e 0e 09 5c 22 1e 5c | 6e cb 0e 5c 6e 21 ab a5 |\n..\".\|n..\n!..|
|00000790| c8 5c 6e 0e 0c 5c 22 1e | 0d cb 0e 0d 21 ab 85 ce |.\n..\".|....!...|
|000007a0| 0e 0d 21 88 cf 0e 5c 6e | 0e 0d d0 89 24 88 d1 d2 |..!...\n|....$...|
|000007b0| d3 5c 6e 0e 0c 23 21 88 | 29 c8 09 0e 09 5c 22 16 |.\n..#!.|)....\".|
|000007c0| 5c 6e cb 0e 5c 6e 21 ad | a8 c8 09 0e 0c 5c 22 1e |\n..\n!.|.....\".|
|000007d0| 0d cb 0e 0d 21 ab 85 ce | 0e 0d 21 88 cf 0e 5c 6e |....!...|..!...\n|
|000007e0| 0e 0d d0 89 24 88 d4 d5 | 8d 88 d1 d2 d3 09 0e 0c |....$...|........|
|000007f0| 23 21 29 2b 87 22 20 5b | 6e 69 6c 20 65 6c 63 2d |#!)+." [|nil elc-|
|00000800| 66 69 6c 65 20 65 6c 2d | 66 69 6c 65 20 73 79 6d |file el-|file sym|
|00000810| 62 6f 6c 2d 6e 61 6d 65 | 20 6d 6f 64 75 6c 65 20 |bol-name| module |
|00000820| 6e 61 6d 65 20 22 2e 65 | 6c 22 20 22 2e 65 6c 63 |name ".e|l" ".elc|
|00000830| 22 20 65 78 70 61 6e 64 | 2d 66 69 6c 65 2d 6e 61 |" expand|-file-na|
|00000840| 6d 65 20 73 72 63 20 73 | 72 63 2d 66 69 6c 65 20 |me src s|rc-file |
|00000850| 66 69 6c 65 2d 65 78 69 | 73 74 73 2d 70 20 64 65 |file-exi|sts-p de|
|00000860| 73 74 20 66 75 6c 6c 2d | 70 61 74 68 20 64 65 6c |st full-|path del|
|00000870| 65 74 65 2d 66 69 6c 65 | 20 63 6f 70 79 2d 66 69 |ete-file| copy-fi|
|00000880| 6c 65 20 74 20 70 72 69 | 6e 63 20 66 6f 72 6d 61 |le t pri|nc forma|
|00000890| 74 20 22 25 73 20 2d 3e | 20 25 73 5c 6e 22 20 74 |t "%s ->| %s\n" t|
|000008a0| 61 67 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |ag (byte|-code ".|
|000008b0| 09 21 ab 87 c2 c3 c4 8f | 88 aa 74 c0 87 22 20 5b |.!......|..t.." [|
|000008c0| 66 69 6c 65 2d 65 78 69 | 73 74 73 2d 70 20 73 72 |file-exi|sts-p sr|
|000008d0| 63 2d 66 69 6c 65 20 65 | 72 72 20 28 62 79 74 65 |c-file e|rr (byte|
|000008e0| 2d 63 6f 64 65 20 22 c0 | 09 21 88 c2 c3 c4 5c 22 |-code ".|.!....\"|
|000008f0| 87 22 20 5b 64 65 6c 65 | 74 65 2d 66 69 6c 65 20 |." [dele|te-file |
|00000900| 73 72 63 2d 66 69 6c 65 | 20 74 68 72 6f 77 20 74 |src-file| throw t|
|00000910| 61 67 20 6e 69 6c 5d 20 | 33 29 20 28 28 65 72 72 |ag nil] |3) ((err|
|00000920| 6f 72 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |or (byte|-code ".|
|00000930| c1 c2 0b 41 40 5c 22 21 | 87 22 20 5b 70 72 69 6e |...A@\"!|." [prin|
|00000940| 63 20 66 6f 72 6d 61 74 | 20 22 25 73 5c 6e 22 20 |c format| "%s\n" |
|00000950| 65 72 72 5d 20 34 29 29 | 29 5d 20 33 29 5d 20 36 |err] 4))|)] 3)] 6|
|00000960| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 69 6e |]).(defa|lias 'in|
|00000970| 73 74 61 6c 6c 2d 65 6c | 69 73 70 2d 6d 6f 64 75 |stall-el|isp-modu|
|00000980| 6c 65 73 20 23 5b 28 6d | 6f 64 75 6c 65 73 20 73 |les #[(m|odules s|
|00000990| 72 63 20 64 65 73 74 29 | 20 22 c0 09 21 ac 85 c2 |rc dest)| "..!...|
|000009a0| 09 c3 5c 22 88 c4 c5 0e | 06 5c 22 87 22 20 5b 66 |..\"....|.\"." [f|
|000009b0| 69 6c 65 2d 65 78 69 73 | 74 73 2d 70 20 64 65 73 |ile-exis|ts-p des|
|000009c0| 74 20 6d 61 6b 65 2d 64 | 69 72 65 63 74 6f 72 79 |t make-d|irectory|
|000009d0| 20 74 20 6d 61 70 63 61 | 72 20 23 5b 28 6d 6f 64 | t mapca|r #[(mod|
|000009e0| 75 6c 65 29 20 22 c0 09 | 5c 6e 0b 23 87 22 20 5b |ule) "..|\n.#." [|
|000009f0| 69 6e 73 74 61 6c 6c 2d | 65 6c 69 73 70 2d 6d 6f |install-|elisp-mo|
|00000a00| 64 75 6c 65 20 6d 6f 64 | 75 6c 65 20 73 72 63 20 |dule mod|ule src |
|00000a10| 64 65 73 74 5d 20 34 5d | 20 6d 6f 64 75 6c 65 73 |dest] 4]| modules|
|00000a20| 5d 20 33 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |] 3]).(b|yte-code|
|00000a30| 20 22 c0 c1 21 ac 93 5c | 6e ac 83 0b ab 87 c4 c5 | "..!..\|n.......|
|00000a40| 0e 06 5c 22 aa 85 c4 c7 | 0e 08 5c 22 11 c1 0e 09 |..\"....|..\"....|
|00000a50| 42 16 09 c0 ca 21 ac 8c | 0e 0b cc 59 ab 83 cd aa |B....!..|...Y....|
|00000a60| 81 ce 16 5c 6e ca 0e 09 | 42 16 09 c0 87 22 20 5b |...\n...|B...." [|
|00000a70| 62 6f 75 6e 64 70 20 69 | 6e 73 74 61 6c 6c 2d 70 |boundp i|nstall-p|
|00000a80| 72 65 66 69 78 20 72 75 | 6e 6e 69 6e 67 2d 65 6d |refix ru|nning-em|
|00000a90| 61 63 73 2d 31 38 20 72 | 75 6e 6e 69 6e 67 2d 78 |acs-18 r|unning-x|
|00000aa0| 65 6d 61 63 73 20 65 78 | 70 61 6e 64 2d 66 69 6c |emacs ex|pand-fil|
|00000ab0| 65 2d 6e 61 6d 65 20 22 | 2e 2e 2f 2e 2e 2f 2e 2e |e-name "|../../..|
|00000ac0| 22 20 65 78 65 63 2d 64 | 69 72 65 63 74 6f 72 79 |" exec-d|irectory|
|00000ad0| 20 22 2e 2e 2f 2e 2e 2f | 2e 2e 2f 2e 2e 22 20 64 | "../../|../.." d|
|00000ae0| 61 74 61 2d 64 69 72 65 | 63 74 6f 72 79 20 63 75 |ata-dire|ctory cu|
|00000af0| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|00000b00| 69 6e 73 74 61 6c 6c 2d | 65 6c 69 73 70 2d 70 72 |install-|elisp-pr|
|00000b10| 65 66 69 78 20 65 6d 61 | 63 73 2d 6d 61 6a 6f 72 |efix ema|cs-major|
|00000b20| 2d 76 65 72 73 69 6f 6e | 20 31 39 20 22 73 69 74 |-version| 19 "sit|
|00000b30| 65 2d 6c 69 73 70 22 20 | 22 6c 6f 63 61 6c 2e 6c |e-lisp" |"local.l|
|00000b40| 69 73 70 22 5d 20 33 29 | 0a 28 64 65 66 61 6c 69 |isp"] 3)|.(defali|
|00000b50| 61 73 20 27 69 6e 73 74 | 61 6c 6c 2d 64 65 74 65 |as 'inst|all-dete|
|00000b60| 63 74 2d 65 6c 69 73 70 | 2d 64 69 72 65 63 74 6f |ct-elisp|-directo|
|00000b70| 72 79 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ry #[(&o|ptional |
|00000b80| 70 72 65 66 69 78 20 65 | 6c 69 73 70 2d 70 72 65 |prefix e|lisp-pre|
|00000b90| 66 69 78 20 61 6c 6c 6f | 77 2d 76 65 72 73 69 6f |fix allo|w-versio|
|00000ba0| 6e 2d 73 70 65 63 69 66 | 69 63 29 20 22 08 ac 82 |n-specif|ic) "...|
|00000bb0| 09 10 5c 6e ac 82 0b 12 | c4 c5 8d ae ad c6 0e 07 |..\n....|........|
|00000bc0| ab 83 c8 aa 81 c9 ca cb | 21 ab 83 cc aa 98 ca cd |........|!.......|
|00000bd0| 21 ab 83 ce aa 90 0e 0f | ab 8b d0 d1 21 ab 83 d2 |!.......|....!...|
|00000be0| aa 84 d3 aa 81 d4 5c 6e | 51 08 5c 22 87 22 20 5b |......\n|Q.\"." [|
|00000bf0| 70 72 65 66 69 78 20 69 | 6e 73 74 61 6c 6c 2d 70 |prefix i|nstall-p|
|00000c00| 72 65 66 69 78 20 65 6c | 69 73 70 2d 70 72 65 66 |refix el|isp-pref|
|00000c10| 69 78 20 69 6e 73 74 61 | 6c 6c 2d 65 6c 69 73 70 |ix insta|ll-elisp|
|00000c20| 2d 70 72 65 66 69 78 20 | 74 61 67 20 28 62 79 74 |-prefix |tag (byt|
|00000c30| 65 2d 63 6f 64 65 20 22 | 08 c1 1a 89 1b 40 89 12 |e-code "|.....@..|
|00000c40| ad ab c4 c5 c6 c7 0e 08 | 50 0e 09 5c 22 ca 51 5c |........|P..\".Q\|
|00000c50| 6e 5c 22 ab 95 0e 0b ac | 8c c4 cc cd 0e 0e 0e 0f |n\".....|........|
|00000c60| 23 5c 6e 5c 22 ac 85 d0 | d1 5c 6e 5c 22 88 0b 41 |#\n\"...|.\n\"..A|
|00000c70| 89 13 aa 50 2a 87 22 20 | 5b 64 65 66 61 75 6c 74 |...P*." |[default|
|00000c80| 2d 6c 6f 61 64 2d 70 61 | 74 68 20 6e 69 6c 20 64 |-load-pa|th nil d|
|00000c90| 69 72 20 72 65 73 74 20 | 73 74 72 69 6e 67 2d 6d |ir rest |string-m|
|00000ca0| 61 74 63 68 20 22 5e 22 | 20 65 78 70 61 6e 64 2d |atch "^"| expand-|
|00000cb0| 66 69 6c 65 2d 6e 61 6d | 65 20 22 2e 2a 2f 22 20 |file-nam|e ".*/" |
|00000cc0| 65 6c 69 73 70 2d 70 72 | 65 66 69 78 20 70 72 65 |elisp-pr|efix pre|
|00000cd0| 66 69 78 20 22 24 22 20 | 61 6c 6c 6f 77 2d 76 65 |fix "$" |allow-ve|
|00000ce0| 72 73 69 6f 6e 2d 73 70 | 65 63 69 66 69 63 20 66 |rsion-sp|ecific f|
|00000cf0| 6f 72 6d 61 74 20 22 25 | 64 5c 5c 2e 25 64 22 20 |ormat "%|d\\.%d" |
|00000d00| 65 6d 61 63 73 2d 6d 61 | 6a 6f 72 2d 76 65 72 73 |emacs-ma|jor-vers|
|00000d10| 69 6f 6e 20 65 6d 61 63 | 73 2d 6d 69 6e 6f 72 2d |ion emac|s-minor-|
|00000d20| 76 65 72 73 69 6f 6e 20 | 74 68 72 6f 77 20 74 61 |version |throw ta|
|00000d30| 67 5d 20 36 29 20 65 78 | 70 61 6e 64 2d 66 69 6c |g] 6) ex|pand-fil|
|00000d40| 65 2d 6e 61 6d 65 20 72 | 75 6e 6e 69 6e 67 2d 65 |e-name r|unning-e|
|00000d50| 6d 61 63 73 2d 31 39 5f | 32 39 2d 6f 72 2d 6c 61 |macs-19_|29-or-la|
|00000d60| 74 65 72 20 22 73 68 61 | 72 65 2f 22 20 22 6c 69 |ter "sha|re/" "li|
|00000d70| 62 2f 22 20 62 6f 75 6e | 64 70 20 4e 45 4d 41 43 |b/" boun|dp NEMAC|
|00000d80| 53 20 22 6e 65 6d 61 63 | 73 2f 22 20 4d 55 4c 45 |S "nemac|s/" MULE|
|00000d90| 20 22 6d 75 6c 65 2f 22 | 20 72 75 6e 6e 69 6e 67 | "mule/"| running|
|00000da0| 2d 78 65 6d 61 63 73 20 | 66 65 61 74 75 72 65 70 |-xemacs |featurep|
|00000db0| 20 6d 75 6c 65 20 22 78 | 6d 75 6c 65 2f 22 20 22 | mule "x|mule/" "|
|00000dc0| 78 65 6d 61 63 73 2f 22 | 20 22 65 6d 61 63 73 2f |xemacs/"| "emacs/|
|00000dd0| 22 5d 20 34 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |"] 4]).(|byte-cod|
|00000de0| 65 20 22 c0 c1 21 ac 83 | c2 20 11 c1 0b 42 13 c4 |e "..!..|. ...B..|
|00000df0| c5 21 87 22 20 5b 62 6f | 75 6e 64 70 20 69 6e 73 |.!." [bo|undp ins|
|00000e00| 74 61 6c 6c 2d 64 65 66 | 61 75 6c 74 2d 65 6c 69 |tall-def|ault-eli|
|00000e10| 73 70 2d 64 69 72 65 63 | 74 6f 72 79 20 69 6e 73 |sp-direc|tory ins|
|00000e20| 74 61 6c 6c 2d 64 65 74 | 65 63 74 2d 65 6c 69 73 |tall-det|ect-elis|
|00000e30| 70 2d 64 69 72 65 63 74 | 6f 72 79 20 63 75 72 72 |p-direct|ory curr|
|00000e40| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 70 72 |ent-load|-list pr|
|00000e50| 6f 76 69 64 65 20 69 6e | 73 74 61 6c 6c 5d 20 32 |ovide in|stall] 2|
|00000e60| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+